home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / employer tax.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  87 lines
  1. 20 REM "EMPLOYER'S TAXES"
  2. 30 PRINT"[147]"
  3. 40 POKE 53280,8:POKE 53281,8:PRINT CHR$(5)
  4. 50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 60 PRINT"    * * * * * * * * * * * * * * * *"
  6. 70 PRINT
  7. 80 PRINT"COMPUTER ASSISTANCE FOR COMPLETION OF"
  8. 90 PRINT
  9. 100 PRINT"  IRS FORM 941 - EMPLOYER'S QUARTERLY"
  10. 105 PRINT
  11. 110 PRINT"      FEDERAL TAX RETURN"
  12. 120 PRINT
  13. 130 PRINT"   * * * * * * * * * * * * * * * *"
  14. 140 FOR X=1TO5000:NEXT X
  15. 150 PRINT"[147]"
  16. 160 PRINT:PRINT
  17. 170 PRINT"THIS PROGRAM WAS WRITTEN IN "
  18. 190 PRINT"SEPTEMBER 1983 BY DR. JOHN P. MESCH,"
  19. 210 PRINT"P.O. BOX 229, EMPIRE, MICHIGAN, 49630."
  20. 220 PRINT
  21. 230 PRINT"THE AUTHOR HAS FOUND IT HELPFUL IN "
  22. 250 PRINT"PREPARING IRS FORM 941.  DR. MESCH IS"
  23. 270 PRINT"NOT AN ACCOUNTANT OR TAX ADVISOR AND"
  24. 290 PRINT"ASSUMES NO RESPONSIBILITY FOR ERRORS IN"
  25. 310 PRINT"TAX RETURNS.  IF FORM 941 IS REVISED OR"
  26. 330 PRINT"THE FICA TAX IS CHANGED, THEN THIS"
  27. 350 PRINT"PROGRAM WILL HAVE TO BE MODIFIED."
  28. 360 PRINT
  29. 370 PRINT"THIS PROGRAM WORKS FOR MOST CASES WHERE"
  30. 390 PRINT"THERE ARE NO TIPS OR ADJUSTMENTS TO"
  31. 410 PRINT"BE CONSIDERED."
  32. 420 FOR I=1TO10000:NEXT I
  33. 430 PRINT"[147]"
  34. 440 POKE53280,6:POKE53281,6
  35. 450 PRINTCHR$(5)
  36. 460 PRINT"IS THIS THE FIRST QUARTER'S 941,"
  37. 470 INPUT "DUE APRIL 30 ? (ANSWER Y OR N)";F$
  38. 475 PRINT
  39. 480 IF F$="Y" THEN GOTO 510
  40. 490 IF F$="N" THEN GOTO 540
  41. 500 IF F$<>"Y" OR F$<>"N" THEN GOTO 460
  42. 510 PRINT "ENTER THE NUMBER OF EMPLOYEES IN THE"
  43. 520 INPUT "PAY PERIOD THAT INCLUDES MARCH 12";E
  44. 530 PRINT
  45. 540 PRINT"ENTER THE TOTAL WAGES SUBJECT TO"
  46. 550 INPUT"WITHHOLDING";W
  47. 560 PRINT
  48. 570 INPUT"ENTER TOTAL INCOME TAX WITHHELD";T
  49. 580 PRINT
  50. 590 INPUT"ENTER THE TOTAL FICA WAGES PAID";F
  51. 595 PRINT
  52. 600 PRINT"ENTER THE TOTAL OF DEPOSITS"
  53. 620 PRINT"MADE THIS QUARTER AGAINST THIS"
  54. 630 INPUT"TAX LIABILITY";      D
  55. 640 PRINT
  56. 650 PRINT
  57. 660 PRINT
  58. 670 PRINT
  59. 680 PRINT
  60. 690 INPUT"ARE YOU READY TO COMPUTE";R$
  61. 700 IF R$="Y" GOTO 720
  62. 710 IF R$<>"Y" GOTO 650
  63. 720 S=F*.134
  64. 730 Z=S+T
  65. 740 P=(S+T)-D
  66. 750 PRINT"[147]"
  67. 760 PRINT"ENTER THE AMOUNTS INDICATED FOR "
  68. 770 PRINT"EACH LINE # ON FORM 941"
  69. 780 PRINT
  70. 790 IF E<>0 THEN PRINT"LINE 1 -> ";E
  71. 800 PRINT"LINE 2 -> ";W
  72. 820 PRINT"LINE 3 -> ";T
  73. 840 PRINT"LINE 5 -> ";T
  74. 860 PRINT"LINE 6 -> ";F;"AND -> ";S
  75. 880 PRINT"LINE 8 -> ";S
  76. 900 PRINT"LINE 10 -> ";S
  77. 920 PRINT"LINE 11 -> ";Z
  78. 940 PRINT"LINE 13 -> ";Z
  79. 960 PRINT"LINE 14 -> ";D
  80. 980 IF P>=0 THEN PRINT"LINE 15 -> ";P;"(ENCLOSE A CHECK"
  81. 1000 IF P<0 THEN PRINT"LINE 16 -> ";-(P)"(YOU HAVE A CREDIT"
  82. 1005 PRINT"FOR THIS AMOUNT)"
  83. 1010 PRINT
  84. 1020 PRINT"MAKE SURE YOUR EMPLOYER ID NUMBER IS ON"
  85. 1030 PRINT"THE FORM AND DON'T FORGET TO SIGN IT."
  86. 1040 END
  87.